home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / appbar4 / appbar.bas next >
BASIC Source File  |  1997-06-10  |  2KB  |  64 lines
  1. Attribute VB_Name = "modAppBar"
  2. Option Explicit
  3.  
  4. Type POINTAPI
  5.         x As Long
  6.         y As Long
  7. End Type
  8.  
  9. Type RECT
  10.     Left        As Long
  11.     Top         As Long
  12.     Right       As Long
  13.     Bottom      As Long
  14. End Type
  15.  
  16. Type APPBARDATA
  17.         cbSize As Long
  18.         hwnd As Long
  19.         uCallbackMessage As Long
  20.         uEdge As Long
  21.         rc As RECT
  22.         lParam As Long '  message specific
  23. End Type
  24.  
  25.  
  26. Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long
  27. Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  28. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
  29. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  30. Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  31.  
  32. Public Const WM_MOUSEMOVE = &H200
  33. Public Const WM_ACTIVATE = &H6
  34. Public Const WM_WINDOWPOSCHANGED = &H47
  35.  
  36. Public Const ABE_BOTTOM = 3
  37. Public Const ABE_LEFT = 0
  38. Public Const ABE_RIGHT = 2
  39. Public Const ABE_TOP = 1
  40. Public Const ABM_ACTIVATE = &H6
  41. Public Const ABM_GETAUTOHIDEBAR = &H7
  42. Public Const ABM_GETSTATE = &H4
  43. Public Const ABM_GETTASKBARPOS = &H5
  44. Public Const ABM_NEW = &H0
  45. Public Const ABM_QUERYPOS = &H2
  46. Public Const ABM_REMOVE = &H1
  47. Public Const ABM_SETAUTOHIDEBAR = &H8
  48. Public Const ABM_SETPOS = &H3
  49. Public Const ABM_WINDOWPOSCHANGED = &H9
  50. Public Const ABN_FULLSCREENAPP = &H2
  51. Public Const ABN_POSCHANGED = &H1
  52. Public Const ABN_STATECHANGE = &H0
  53. Public Const ABN_WINDOWARRANGE = &H3
  54.  
  55. Public Const SM_CXSCREEN = 0
  56. Public Const SM_CYSCREEN = 1
  57.  
  58. Public Const HWND_TOP = 0
  59. Public Const HWND_TOPMOST = -1
  60.  
  61. Public Const SWP_NOACTIVATE = &H10
  62. Public Const SWP_SHOWWINDOW = &H40
  63.  
  64.